home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / TUTORIAL.EXE / WK4PROG9.BAS < prev    next >
BASIC Source File  |  1996-03-05  |  425b  |  18 lines
  1.  
  2.     'WK4PROG9.BAS
  3.     'demonstrate printing to statictext control
  4.  
  5.     statictext #countdown.stext, "Counting down:", 10, 10, 200, 25
  6.     open "Countdown" for window as #countdown
  7.  
  8.     for count = 10 to 1 step -1
  9.         print #countdown.stext, "Counting down: "; count
  10.         t$ = time$()
  11.         while t$ = time$()
  12.         wend
  13.     next count
  14.  
  15.     print #countdown.stext, "Counting Down: Done."
  16.  
  17.     end
  18.